huyển sang C++ với ạ: Program Tinh_Trung_Binh; uses crt; Var n,dem:Integer; x,TB:real; begin clrscr; dem:=0 ;TB:=0; write('nhap so cac so can tinh n=');realdn(n) while dem<n do begin dem:=dem+1 write('nhap so thu' ,dem,'='); readl(x); TB:=TB+x; end; TB:=TB/n; writeln('Trung binh cua',n,` so la =',TB:10:3); writeln('nhap Enter de thoat...'); readln; end.
Những câu hỏi liên quan
Tìm và sửa lỗi trong chương trình pascal sau: Uses crt; Var i, n, t : integer; Begin clrscr; write(Nhap so n ); readln(n); i : l; t : 0; while i n do begin t : t + i; i : i + l; write(Tong , t); Readln; end.
Đọc tiếp
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0; | sửa: i:=1; t:=0;
while i <= n do
begin
t := t + i;
i := i + l; | Sửa: i:=i+1;
-> Thiếu. Thêm: End;
write('Tong = ', t);
Readln;
end.
Đúng 2
Bình luận (0)
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACALBƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:1.1. Dem-0;1.2. Sum-0.Bƣớc 2: Trong khi dem N thì:2.1. Nhập giá trị số thực x từ bàn phím;2.2. Sum - Sum + x;2.3. Dem-Dem +1;Bƣớc 3: TB- Sum/N;Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N 5;45; 55; 67; 91Program So_nguyen_to;Uses crt;Var n, i: Integer;BEGINclrscr;Write(„Nhap...
Đọc tiếp
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else
Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.
BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DOBài 1: SGK 60 Nhập chương trình : uses crt; var N,I:integer; begin clrscr; write (Nhap so N); readln(N); writeln; writeln(Bang nhan,N); writeln; for i:1 to 10 writeln(N,x,i:2, ,N*i:3); readlnend Câu hỏi ôn tập: a. Sau khi nhập đoạn chương trình bài 1. Cho...
Đọc tiếp
BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO
Bài 1: SGK 60
Nhập chương trình :
uses crt;
var N,I:integer;
begin
clrscr;
write (Nhap so N='); readln(N);
writeln;
writeln('Bang nhan',N);
writeln;
for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);
readln
end
Câu hỏi ôn tập:
a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .
b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?
c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?
b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100
c)
Nhân từ 10 đến 100
Đúng 3
Bình luận (0)
Program tong_so_le;
Uses crt;
Var S,N,I:Integer;
Xữa chương trình sau( nếu sai)
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do If (I mod 2<>0) then
S:=S+I;
Writeln('Tong cac so le la ',S); Readln;
End.
Giup mik nha các bn
Thanks
Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. While i
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
Program HOC24;
var i,n,s: integer;
begin
writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');
write('Nhap so n;'); readln(n);
s:=0; i:=1;
while i<n do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln
end.
Đúng 0
Bình luận (0)
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. A)if mod 2=0 then B)while i
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
14 tháng 3 2022 lúc 20:22
Câu 6: Trong đoạn chương trình sau, có mấy câu lệnh được lặp lại?S : 0; dem : 0; n : 10;While dem n doBegindem : dem +1;Write(‘ Nhap so X’,dem,’’);Readln(X);S : S + X ;end;A. 0 B. 1 C. 3 D. 4 ét o ét bà con cô chú ơi ét o ét, ét o ét é é é é é
Đọc tiếp
Câu 6: Trong đoạn chương trình sau, có mấy câu lệnh được lặp lại?
S := 0; dem := 0; n := 10;
While dem > n do
Begin
dem := dem +1;
Write(‘ Nhap so X’,dem,’=’);Readln(X);
S := S + X ;
end;
A. 0 B. 1 C. 3 D. 4
ét o ét bà con cô chú ơi ét o ét, ét o ét é é é é é
